Графические примитивы

procedure Arc(x, y, r, angle1, angle2: real);
        Рисует дугу окружности с центром в точке (x,y) и радиусом r, заключенную между двумя лучами, образующими углы angle1 и angle2 с осью OX
procedure Arc(x, y, r, angle1, angle2: real; c: Color);
        Рисует дугу окружности с центром в точке (x,y) и радиусом r, заключенную между двумя лучами, образующими углы angle1 и angle2 с осью OX, цветом c
procedure Circle(x,y,r: real);
        Рисует окружность с центром в точке (x,y) и радиусом r
procedure Circle(x,y,r: real; c: Color);
        Рисует окружность с центром в точке (x,y), радиусом r и цветом c
procedure DrawCircle(x,y,r: real);
        Рисует контур окружности с центром в точке (x,y) и радиусом r
procedure DrawCircle(x,y,r: real; c: Color);
        Рисует контур окружности с центром в точке (x,y), радиусом r и цветом c
procedure DrawEllipse(x,y,rx,ry: real);
        Рисует контур эллипса с центром в точке (x,y) и радиусами rx и ry
procedure DrawEllipse(x,y,rx,ry: real; c: Color);
        Рисует контур эллипса с центром в точке (x,y), радиусами rx и ry и цветом c
procedure DrawPixels(x,y: real; a: array [,] of Color);
        Рисует двумерный массив пикселов с координатами левой верхней вершины (x,y)
procedure DrawPolygon(points: array of Point);
        Рисует контур многоугольника, заданного массивом точек
procedure DrawPolygon(points: array of Point; c: GColor);
        Рисует контур многоугольника, заданного массивом точек и цветом
procedure DrawRectangle(x,y,w,h: real);
        Рисует контур прямоугольника с координатами вершин (x,y) и (x+w,y+h)
procedure DrawRectangle(x,y,w,h: real; c: Color);
        Рисует контур прямоугольника с координатами вершин (x,y) и (x+w,y+h) цветом c
procedure DrawSector(x, y, r, angle1, angle2: real);
        Рисует контур сектора окружности с центром в точке (x,y) и радиусом r, заключенного между двумя лучами, образующими углы angle1 и angle2 с осью OX
procedure DrawSector(x, y, r, angle1, angle2: real; c: Color);
        Рисует контур сектора окружности с центром в точке (x,y) и радиусом r, заключенного между двумя лучами, образующими углы angle1 и angle2 с осью OX, цветом c
procedure Ellipse(x,y,rx,ry: real);
        Рисует эллипс с центром в точке (x,y) и радиусами rx и ry
procedure Ellipse(x,y,rx,ry: real; c: Color);
        Рисует эллипс с центром в точке (x,y), радиусами rx и ry и цветом внутренности c
procedure FillCircle(x,y,r: real);
        Рисует внутренность окружности с центром в точке (x,y) и радиусом r
procedure FillCircle(x,y,r: real; c: Color);
        Рисует внутренность окружности с центром в точке (x,y), радиусом r и цветом c
procedure FillEllipse(x,y,rx,ry: real);
        Рисует внутренность эллипса с центром в точке (x,y) и радиусами rx и ry
procedure FillEllipse(x,y,rx,ry: real; c: Color);
        Рисует внутренность эллипса с центром в точке (x,y), радиусами rx и ry и цветом c
procedure FillPolygon(points: array of Point);
        Рисует внутренность многоугольника, заданного массивом точек
procedure FillPolygon(points: array of Point; c: GColor);
        Рисует внутренность многоугольника, заданного массивом точек и цветом
procedure FillRectangle(x,y,w,h: real);
        Рисует внутренность прямоугольника с координатами вершин (x,y) и (x+w,y+h)
procedure FillRectangle(x,y,w,h: real; c: Color);
        Рисует внутренность прямоугольника с координатами вершин (x,y) и (x+w,y+h) цветом c
procedure FillSector(x, y, r, angle1, angle2: real);
        Рисует внутренность сектора окружности с центром в точке (x,y) и радиусом r, заключенного между двумя лучами, образующими углы angle1 и angle2 с осью OX
procedure FillSector(x, y, r, angle1, angle2: real; c: Color);
        Рисует внутренность сектора окружности с центром в точке (x,y) и радиусом r, заключенного между двумя лучами, образующими углы angle1 и angle2 с осью OX, цветом c
procedure Line(x,y,x1,y1: real);
        Рисует отрезок прямой от точки (x,y) до точки (x1,y1)
procedure Line(x,y,x1,y1: real; c: Color);
        Рисует отрезок прямой от точки (x,y) до точки (x1,y1) цветом c
procedure LineOn(dx,dy: real);
        Рисует отрезок от текущей позиции до точки, смещённой на вектор (dx,dy). Текущая позиция переносится в новую точку
procedure LineRel(dx,dy: real);
        Рисует отрезок от текущей позиции до точки, смещённой на вектор (dx,dy). Текущая позиция переносится в новую точку
procedure LineTo(x,y: real);
        Рисует отрезок от текущей позиции до точки (x,y). Текущая позиция переносится в точку (x,y)
procedure MoveOn(dx,dy: real);
        Перемещает текущую позицию рисования на вектор (dx,dy)
procedure MoveRel(dx,dy: real);
        Перемещает текущую позицию рисования на вектор (dx,dy)
procedure MoveTo(x,y: real);
        Устанавливает текущую позицию рисования в точку (x,y)
procedure Pie(x, y, r, angle1, angle2: real);
        Рисует сектор окружности с центром в точке (x,y) и радиусом r, заключенный между двумя лучами, образующими углы angle1 и angle2 с осью OX
procedure Polygon(points: array of Point);
        Рисует многоугольник, заданный массивом точек
procedure Polygon(points: array of Point; c: Color);
        Рисует многоугольник, заданный массивом точек и цветом
procedure PolyLine(points: array of Point);
        Рисует ломаную, заданную массивом точек
procedure PolyLine(points: array of Point; c: Color);
        Рисует ломаную заданную массивом точек и цветом
procedure Rectangle(x,y,w,h: real);
        Рисует прямоугольник с координатами вершин (x,y) и (x+w,y+h)
procedure Rectangle(x,y,w,h: real; c: Color);
        Рисует прямоугольник с координатами вершин (x,y) и (x+w,y+h) цветом c
procedure Sector(x, y, r, angle1, angle2: real);
        Рисует сектор окружности с центром в точке (x,y) и радиусом r, заключенный между двумя лучами, образующими углы angle1 и angle2 с осью OX
procedure Sector(x, y, r, angle1, angle2: real; c: Color);
        Рисует сектор окружности с центром в точке (x,y) и радиусом r, заключенный между двумя лучами, образующими углы angle1 и angle2 с осью OX, цветом c
procedure SetPixel(x,y: real; c: Color);
        Рисует пиксел в точке (x,y) цветом c
procedure SetPixels(x,y: real; w,h: integer; f: (integer,integer)->Color);
        Рисует пиксел в точке (x,y) цветом c